<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admuserarchall.php,v $ 
 * $Date: 2006/03/21 17:28:16 $ 
 * $Revision: 1.3 $ 
 * 
 * ********* CVS HEADER ********* 
 */
$query="SELECT id_user FROM utilisateur_supp WHERE fin<NOW()";
$results=rportalrequete($query) or die ("ERREUR 0139");
while($rows=rportalligne($results)) {
	$argid=$rows["id_user"];
	$query="DELETE FROM session WHERE id_user='$argid'";
	@rportalrequete($query) or die ("ERREUR 0140");
	$groupdefarch= $rportalparams->get_value("RPORTAL","groupe.archive");
	
	$query ="UPDATE utilisateur SET nom='XXXX',prenom='XXXX',email='XXXX',password='XXXX',id_groupe='$groupdefarch'";
	$query.=" WHERE id='$argid'";
	@rportalrequete($query) or die ("ERREUR 0141");
	$query="DELETE FROM utilisateur_supp WHERE id_user='$argid'";
	@rportalrequete($query) or die ("ERREUR 0142");
}
header("Location: ?op=admusergest");
?>